home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / file_uti / fver32 / filever.bas next >
BASIC Source File  |  1995-11-07  |  4KB  |  92 lines
  1. Attribute VB_Name = "Module1"
  2. Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
  3. Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
  4. Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
  5. Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
  6. ' Global Memory Flags
  7. Public Const GMEM_FIXED = &H0
  8. Public Const GMEM_MOVEABLE = &H2
  9. Public Const GMEM_NOCOMPACT = &H10
  10. Public Const GMEM_NODISCARD = &H20
  11. Public Const GMEM_ZEROINIT = &H40
  12. Public Const GMEM_MODIFY = &H80
  13. Public Const GMEM_DISCARDABLE = &H100
  14. Public Const GMEM_NOT_BANKED = &H1000
  15. Public Const GMEM_SHARE = &H2000
  16. Public Const GMEM_DDESHARE = &H2000
  17. Public Const GMEM_NOTIFY = &H4000
  18. Public Const GMEM_LOWER = GMEM_NOT_BANKED
  19. Public Const GMEM_VALID_FLAGS = &H7F72
  20. Public Const GMEM_INVALID_HANDLE = &H8000
  21.  
  22. Public Const GHND = (GMEM_MOVEABLE Or GMEM_ZEROINIT)
  23. Public Const GPTR = (GMEM_FIXED Or GMEM_ZEROINIT)
  24.  
  25. '  Returns size of version info in Bytes
  26. Declare Function GetFileVersionInfoSize Lib "version.dll" Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, lpdwHandle As Long) As Long
  27.  
  28. '  Read version info into buffer
  29. ' /* Length of buffer for info *
  30. ' /* Information from GetFileVersionSize *
  31. ' /* Filename of version stamped file *
  32. Declare Function GetFileVersionInfo Lib "version.dll" Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal dwHandle As Long, ByVal dwLen As Long, lpData As Any) As Long
  33. Declare Function VerLanguageName Lib "kernel32" Alias "VerLanguageNameA" (ByVal wLang As Long, ByVal szLang As String, ByVal nSize As Long) As Long
  34. Declare Function VerQueryValue Lib "version.dll" Alias "VerQueryValueA" (pBlock As Any, ByVal lpSubBlock As String, lplpBuffer As Long, puLen As Long) As Long
  35.  
  36. 'File Open Dialog
  37. Type OPENFILENAME
  38.         lStructSize As Long
  39.         hwndOwner As Long
  40.         hInstance As Long
  41.         lpstrFilter As String
  42.         lpstrCustomFilter As String
  43.         nMaxCustFilter As Long
  44.         nFilterIndex As Long
  45.         lpstrFile As String
  46.         nMaxFile As Long
  47.         lpstrFileTitle As String
  48.         nMaxFileTitle As Long
  49.         lpstrInitialDir As String
  50.         lpstrTitle As String
  51.         Flags As Long
  52.         nFileOffset As Integer
  53.         nFileExtension As Integer
  54.         lpstrDefExt As String
  55.         lCustData As Long
  56.         lpfnHook As Long
  57.         lpTemplateName As String
  58. End Type
  59.  
  60. Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOPENFILENAME As OPENFILENAME) As Long
  61. Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOPENFILENAME As OPENFILENAME) As Long
  62. Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer
  63.  
  64. Public Const OFN_READONLY = &H1
  65. Public Const OFN_OVERWRITEPROMPT = &H2
  66. Public Const OFN_HIDEREADONLY = &H4
  67. Public Const OFN_NOCHANGEDIR = &H8
  68. Public Const OFN_SHOWHELP = &H10
  69. Public Const OFN_ENABLEHOOK = &H20
  70. Public Const OFN_ENABLETEMPLATE = &H40
  71. Public Const OFN_ENABLETEMPLATEHANDLE = &H80
  72. Public Const OFN_NOVALIDATE = &H100
  73. Public Const OFN_ALLOWMULTISELECT = &H200
  74. Public Const OFN_EXTENSIONDIFFERENT = &H400
  75. Public Const OFN_PATHMUSTEXIST = &H800
  76. Public Const OFN_FILEMUSTEXIST = &H1000
  77. Public Const OFN_CREATEPROMPT = &H2000
  78. Public Const OFN_SHAREAWARE = &H4000
  79. Public Const OFN_NOREADONLYRETURN = &H8000
  80. Public Const OFN_NOTESTFILECREATE = &H10000
  81. Public Const OFN_NONETWORKBUTTON = &H20000
  82. Public Const OFN_NOLONGNAMES = &H40000                      '  force no long names for 4.x modules
  83. Public Const OFN_EXPLORER = &H80000                         '  new look commdlg
  84. Public Const OFN_NODEREFERENCELINKS = &H100000
  85. Public Const OFN_LONGNAMES = &H200000                       '  force long names for 3.x modules
  86.  
  87. Public Const OFN_SHAREFALLTHROUGH = 2
  88. Public Const OFN_SHARENOWARN = 1
  89. Public Const OFN_SHAREWARN = 0
  90.  
  91.  
  92.